l&l 0mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _R8J0IQD92 543638924/F] WINDOWS _R00184RQL 774798525 WINDOWS _QUS11CIBD 611550620Z7f7r777Z8 WINDOWS _QUS11CILN 607017460;;1;@;\; < WINDOWS _QUS11CIOE 548696207CCDD1DD WINDOWS _QUS11CIOZ 548696207FFFFGG WINDOWS _QUS11CIPJ 551064898J J-J;JWJ WINDOWS _QUS11CIPT 551064898KK!K7KSK WINDOWS _QUS11CIQ3 551907152LL-LCL_L;M WINDOWS _QUT100TGA 548696207Vix WINDOWS _R001AA3BE 548440138 &O WINDOWS _R001AA3BO 548440138 WINDOWS _R001AA3CS 548440138Q_m| WINDOWS _R001AA3D2 548440138$1Z WINDOWS _R001AA3DW 548440138 WINDOWS _R001AA3E6 548440138AYl{ WINDOWS _R001AA3FA 548440138 *T WINDOWS _R001AA3FU 548440138 WINDOWS _R001AA3GO 548440138Wes WINDOWS _R001AA3GY 548440138 +8b WINDOWS _R001AA3I2 548440138 WINDOWS _R001AA3IC 548440138Iat WINDOWS _R001AA3JH 548440138#2\ WINDOWS _R001AA3JR 548440138 WINDOWS _R001AA3KV 548440138_m{ WINDOWS _R001AA3L5 548440138$3@j WINDOWS _R001AA3M9 551906038 WINDOWS _R001AA3OH 551255175(8HZt WINDOWS _R001AA3PL 5510642798K^s WINDOWS _R001AA3SN 606975044cp} WINDOWS _R001AA3TH 606975044O\iw WINDOWS _R0712WSDD 774796184?KWjy WINDOWS _R0712WSF1 606966673 '@[0 WINDOWS _R0712WSGF 606966673-<K`{F WINDOWS _R0712WSHT 606973002WlG WINDOWS _R0712WSIX 606966673%6Q WINDOWS _R0712WSK1 551064279 WINDOWS _R0712WSKV 551064279 COMMENT RESERVED mVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentaTop = 237 Left = 159 Width = 749 Height = 364 DataSource = .NULL. Name = "Dataenvironment" 12formsetformsetHexeditDataSession = 2 AutoRelease = .T. csearchstring = nsearchdirection = 1 nsearchfrom = 2 npointerlocation = 0 nfiletoedit = 0 ctemptable = nnumberofbytes = 0 ndesiredlocation = 0 chighlightarrayname = coldcompat = coldonesca = coldsetesca = nfilesize = 0 ncolnum = 0 chexarrayname = cfindstrhname = cfindstrname = lformsetlostfocus = .T. Name = "Hexedit" csearchstring nsearchdirection nsearchfrom lcasesen lsectordirty npointerlocation nfiletoedit ctemptable nnumberofbytes ndesiredlocation lgridwasscrolled chighlightarrayname coldcompat coldonesca coldsetesca nfilesize ncolnum lstringhighlighted chexarrayname cfindstrhname Name of file used for hex search string cfindstrname Name of file used for character representation of search string chexaddress Address to jump to, in Hex notation. cdecimaladdress Address to jump to, in base ten. liceventfired Used in txtFindStringHex, to specify whether the last keystroke made any modifications to the data. loldinsmode coldbell lformsetlostfocus hexeditor findstr gotosect *reportfileerror *fillhexarray *filltable *setgridhighlights *writesector *cleargridhighlights *dec2hex *findstring *readsector *hex2dec ^atwodigithexarray[256,0] *checkkeystroke /7 //%*Ue TC HR V,T File Error: File not found. 0T File Error: Out of file handles +T File Error: Access denied. )ET File Error: (Invalid file handle. (programmer error). e+T File Error: Out of memory. -T File Error: File seek error. *T File Error: Disk is full. 0T File Error: Error opening file.2R+TUnexpected file I/O condition. CxUNFILEERRORNUMBER CMESSAGETEXTf(H#TCC@0_RC BUAHEXFFZZZ THISFORMSETATWODIGITHEXARRAY4C T (eT C6T T  )TCC @0_RT C \ ( D3T CCC \T rHEXEDITUNLASTROWNBYTESINLASTROW NPTRLOCATION CWORKSTRINGAHEXFF THISFORMSETATWODIGITHEXARRAY AFILEDATANROW NLASTBYTENROWBYTENASCII CTEMPSTRING1NCOLUMN4TIIF(RECNO() = /T, CC^Z,CZ) (% %  T  T %   T  T % ]+T  C ZT  T aUNFIRSTSTRINGCOLUMN NSTRINGLENGTHNFOUNDROWNUMBER CSTARTSTRING THISFORMSET HEXEDITORGRDDATA CENDSTRING BACKCOLOR NCURRENTCOL NHIGHLIGHTROWCOLUMNSDYNAMICBACKCOLORLSTRINGHIGHLIGHTED46%CHexEditW C  ?C&Cannot access file. Aborting program.0HexEditx< % %CHEXEDITCaHEXEDITT-T-Ba % TsLTC/Sector has been edited. Write changes to disk?3HexEditx H Ca-HEXEDITT-T-T-T CHEXEDITNT C GF #) T ( % hT  T  C  \HTC  TC%  B-Ba `CaHEXEDITT-T-T-Ba xB-2CProgram error.xB-ULWRITEIMMEDIATELY THISFORMSET NFILETOEDIT LSECTORDIRTY HEXEDITOR CMDSAVEEDITSENABLEDCMDREVERTEDITS NUSERCHOICENLASTROWNBYTESINLASTROWNNUMBEROFBYTESHEXEDIT CWORKSTRINGNROWTEXT NBYTESWRITTENNPOINTERLOCATIONREPORTFILEERROR:)CDynamicBackColorT-U THISFORMSET HEXEDITORGRDDATASETALLLSTRINGHIGHLIGHTED 4%CB'BCC@0_C6R T+ %BCC@0_RTUNDECIMALNDIGITS NEXPONENT L H- K T 7TCOC6 TT T @ T -T  TC H+   +a%C TCT  \R,:Search Status: C dZ%C Press [Escape] to cancel.TCTC C>%a TC#TC% % _T R B%C> C R,:String not found.TCT BT  T  ! + +a'%C TCT  \R,:Search Status: C dZ%C Press [Escape] to cancel.#T C  6TC TC C>%a8TCVTCCfCf% % T R B%C R,:String not found.TCT B T  #!R .%  yTTC 8TTCCaT aTC 8F #TCGCC>  T %CG T-U CSTRINGTOFINDNSEARCHDIRECTION NSEARCHFROMLCASESEN THISFORMSETNSEARCHLOCATIONNPOINTERLOCATIONNCOLNUM NFILESIZENBYTESTOSEARCHNLARGERBUFFERSIZELESCAPEPRESSED HEXEDITOR MOUSEPOINTER NSTARTTIME NFILETOEDITCSEEKWORKSTRINGNSTRINGLOCATIONNFIRSTSTRINGCELLNDESIREDLOCATION READSECTOR LOCKSCREENNFOUNDROWNUMBERHEXEDITNFIRSTSTRINGCOLUMNSETGRIDHIGHLIGHTSGRDDATAREFRESHCOLUMNSSETFOCUS 4'%C CHexEditW |?C&Cannot access file. Aborting program.0HexEditx<B  H  TTC%C TCB %9B% kTCTTC% TC%T aT C%C cWorkString>w?C&Cannot access file. Aborting program.0HexEditx< %CT C >T C  wT C GT-T-GT  T  T TaTa%T-T-TaTaCaHEXEDITCBUFFHEXEDITSC  TC c #)CBUFFHEXEDIT%% T -U NDIRECTIONLLEAVESCREENLOCKED THISFORMSET NFILETOEDIT NOLDLOCATIONNPOINTERLOCATIONLSTRINGHIGHLIGHTEDCLEARGRIDHIGHLIGHTS HEXEDITOR LOCKSCREEN CWORKSTRINGNNUMBEROFBYTESNLASTROWNBYTESINLASTROW CMDNEXTSECTORENABLEDCMDBOTTOMOFFILECMDPREVIOUSSECTOR CMDTOPOFFILEHEXEDIT FILLTABLEGRDDATAREFRESH ACTIVECOLUMNCOLUMNSSETFOCUSBC0xCUCDIGITS*4 H# 5 V w  %  V%  2#BU NKEYCODE THISFORMSET HEXEDITORCMDPREVIOUSSECTORCLICK CMDNEXTSECTOR CMDTOPOFFILECMDBOTTOMOFFILE CMDFINDNEXTENABLEDCMDFINDPREVIOUS G2G.G G_ G TT T-TF-TC]\CC] \.TMPh1CC C C C C CCCCCCCCCCCCQHEXEDIT"C BUFFERINGHEXEDITF-TC]\CC] \.TMPh1CCCCCC C!C"C#C$C%C&C'C(CQFindStr"C BUFFERINGFindStrF-T)C]\CC] \.TMPh1)CCCCCC C!C"C#C$C%C&C'C(Ch1)CCCCCC C!C"C#C$C%C&C'C(CQ)FindStrH#C BUFFERINGFindStrHU* THISFORMSET FILLHEXARRAYNPOINTERLOCATION NFILETOEDIT LSECTORDIRTYNCOLNUM CTEMPTABLEADDRESSB1B2B3B4B5B6B7B8B9B10B11B12B13B14B15B16TEXT CFINDSTRNAMEC1C2C3C4C5C6C7C8C9C10C11C12C13C14C15 CFINDSTRHNAME %CHEXEDITWiCaHEXEDITCBUFFHEXEDITQHEXEDIT%C C %CFindStrWQFindStr%CFindStrHWQFindStrH  <U THISFORMSET NFILETOEDIT CTEMPTABLE CFINDSTRNAME CFINDSTRHNAME  TaT%CZ SET COMPAT &cOldCompat TON ESCAPE &cOldEscape TSET ESCAPE &cOldSetEscape TSET BELL &cOldBell C@t&U THISFORMSETLFORMSETLOSTFOCUS COLDCOMPAT COLDESCAPE COLDONESCA COLDSETESCAPE COLDSETESCACOLDBELL LOLDINSMODE % T-TCEscapeTCEscapevTC@TCBELLvTCCOMPATv1lEscapePressed = .T.G GA C-@GU THISFORMSETLFORMSETLOSTFOCUS COLDONESCA COLDSETESCA LOLDINSMODECOLDBELL COLDCOMPAT4%C cFileToLoadbC-R,:!Choose a file to open in HexEdit.+Ca qTHexEditCaR %< U CFILETOLOAD THISFORMSET HEXEDITORCMDFILECLICKGRDDATA RECORDSOURCE NFILETOEDITreportfileerror, fillhexarray filltableLsetgridhighlightss writesectorcleargridhighlights~ dec2hex findstring readsector!hex2dec<checkkeystrokefLoad%Unload$ DeactivateJ&Activate'Init(1RA3q1A1A21AsubSUs2AAC31rAbAAAAA4qhqAABAAAqAAUAAcqQsABAABqAqAAAqrqA33qA!aQAA21rAAAb!!AQAA1AAAAAAA2!bAQAAAAAAAARtQsAqASB2vqAArAA"!B1r!rAAAAABqAA"!"!A#!!!!ABAAA2v12q!aAAaAAAA3eaaaar!aQ!qQ1B2AAAA!AEr2!aAAS3qaAaaaaAA6qBARCqAA1)/formform frmHexEditorHexeditHeight = 360 Width = 613 ShowWindow = 2 DoCreate = .T. ShowTips = .T. AutoCenter = .T. BorderStyle = 1 Caption = "HexEdit" MaxButton = .F. KeyPreview = .T. Name = "frmHexEditor"  V%U-TTTU THISFORMSET HEXEDITORFINDSTRGOTOSECT&TTC]U THISFORMSET HEXEDITORTHISNAMEy  Hr  E   r UNKEYCODE NSHIFTALTCTRLTHISFORMCMDCLOSECLICKCMDFIND2%C B <U THISFORMSET WRITESECTOR DEACTIVATEUnload,InitKeyPress QueryUnload1313AAA3#AAAr2) commandbutton commandbuttoncmdFileHexedit.frmHexEditorTop = 11 Left = 8 Height = 23 Width = 72 FontName = "MS Sans Serif" FontSize = 8 Caption = "Select Fi\? C=...C(R6MTHexEdit - C a [Read-Only]6TaTaT  CU CFILETOLOADLCALLEDFROMFORMSETINIT THISFORMSET WRITESECTOR CTEMPFILENAME NTEMPHANDLEREPORTFILEERRORTHISFORMGRDDATASETALLCOLUMN2READONLYCOLUMNS NFILESIZE CFILETOEDIT NFILETOEDITLBLDECFILESIZECAPTIONDEC2HEXNPOINTERLOCATION LSECTORDIRTYNLASTBACKSLASHCSTRIPPEDFILENAMELBLCURRENTFILECMDGOTOADDRESSENABLEDCMDFIND READSECTOR CUNKEYCODE NSHIFTALTCTRL THISFORMSETCHECKKEYSTROKEClick,KeyPressy1)AAAAA""q"AAASAAAArA!ARqa1A3aAA31) commandbutton commandbutton cmdTopOfFileHexedit.frmHexEditorTop = 44 Left = 575 Height = 47 Width = 30 Picture = uptop.bmp Caption = "" Enabled = .F. TabIndex = 2 ToolTipText = "Read First 2k Sector (Ctrl+Home)" Name = "cmdTopOfFile"  s%0Ub [%CW%STCCU THISFORMSET WRITESECTORNPOINTERLOCATION NFILETOEDIT READSECTOR CUNKEYCODE NSHIFTALTCTRL THISFORMSETCHECKKEYSTROKEClick,KeyPress1!qAAA21) commandbutton commandbuttoncmdBottomOfFileHexedit.frmHexEditorTop = 269 Left = 575 Height = 47 Width = 30 Picture = dnbottom.bmp Caption = "" Enabled = .F. TabIndex = 5 ToolTipText = "Read Last 2k Sector (Ctrl+End)" Name = "cmdBottomOfFile" @ ''%U %CTTCTC 8%TTC%CU THISFORMSET WRITESECTOR NOLDLOCATIONNPOINTERLOCATION NFILETOEDITNDESIREDLOCATION READSECTOR CUNKEYCODE NSHIFTALTCTRL THISFORMSETCHECKKEYSTROKEClick,KeyPress^1q!!Aq!AAA21)'labellabelLabel1Hexedit.frmHexEditorFontBold = .T. FontName = "MS Sans Serif" FontSize = 8 Alignment = 1 Caption = "File:" Height = 13 Left = 84 Top = 8 Width = 64 TabIndex = 0 Name = "Label1" labellabellblCurrentFileHexedit.frmHexEditorFontBold = .F. FontName = "MS Sans Serif" FontSize = 8 Caption = "" Height = 16 Left = 160 Top = 8 Width = 445 TabIndex = 0 Name = "lblCurrentFile"  commandbutton commandbuttoncmdGoToAddressHexedit.frmHexEditorTop = 328 Left = 401 Height = 23 Width = 72 FontName = "MS Sans Serif" FontSize = 8 Caption = "\%C !BCU THISFORMSET WRITESECTOR FINDSTRING CSEARCHSTRINGLCASESEN CUNKEYCODE NSHIFTALTCTRL THISFORMSETCHECKKEYSTROKEClick,KeyPress1BAB21)m commandbutton commandbutton cmdFindNextHexedit.frmHexEditorTop = 328 Left = 330 Height = 23 Width = 25 Picture = right.bmp Caption = "" Enabled = .F. TabIndex = 10 ToolTipText = "Search forward (F3)" Name = "cmdFindNext"  mmx% UE >%C !BCU THISFORMSET WRITESECTOR FINDSTRING CSEARCHSTRINGLCASESEN CUNKEYCODE NSHIFTALTCTRL THISFORMSETCHECKKEYSTROKEClick,KeyPress1BAB21)m commandbutton commandbutton cmdSaveEditsHexedit.frmHexEditorTop = 328 Left = 24 Height = 23 Width = 72 FontName = "MS Sans Serif" FontSize = 9 Caption = "\BTTT a  T aT a CU THISFORMSETCTMPSEARCHSTRING NCURRENTCHARHEX2DEC CSEARCHSTRINGLCASESENTHISFORM CHKCASESENVALUE HEXEDITORENABLEDHIDECMDFINDPREVIOUS CMDFINDNEXTSHOW FINDSTRINGNSEARCHDIRECTION NSEARCHFROMClick,1q2BAAA2AAA#!A1) commandbutton commandbutton cmdCancelHexedit.frmFindStrAutoSize = .F. Top = 224 Left = 272 Height = 23 Width = 72 FontName = "MS Sans Serif" FontSize = 8 Cancel = .T. Caption = "\ T  %T  FindStrH.CCC Z> %   S%CC FindStrH.CFindStrH/ $CC FindStrH.CFindStrH/Z Ta T-   D Ta T-UNKEYCODE NSHIFTALTCTRLTHISPARENTCOLUMNSSETFOCUSTHISFORMCMDFINDCLICK NACTIVECOLUMN ACTIVECOLUMNTEXT1VALUE CFIELDNAMEGRDHEXENABLEDREFRESHOPTSEARCHDIRECTIONOPTION1 LOCKSCREENGRDCHART)%CCCZ Ta (%CCC Z !%    T-U THISPARENTNPREVIOUSCOLUMN ACTIVECOLUMNCOLUMNSTEXT1VALUETHISFORM LOCKSCREEN NCURRENTCOLSETFOCUSREFRESHMTT%CZC i)>FindStrCFindStr/3>FindStrCFindStr/CC  F  S%CC FindStrH.CFindStrH/ $CC FindStrH.CFindStrH/Z +T aBT -U NCURRENTCOLTHISPARENT ACTIVECOLUMN CTEMPTEXTVALUEIN THISFORMSETHEX2DECTHISFORMGRDCHARCOLUMNSREFRESHCMDFINDENABLEDKeyPress,GotFocusInteractiveChange1AAAAAAAAaAAAAAQ3AACAA33!AAAQAAA3b1AC4AA5) txtfindstringhex"Courier, 0, 8, 9, 16, 13, 9, 3, 0 textboxtextbox txtfindstringsBorderStyle = 0 Height = 21 InputMask = "X" Margin = 0 SpecialEffect = 1 Width = 100 Name = "txtfindstring" Class1Pixels0Textbox object for Decimal grid in FindStr form. %yUT.%CCCZ T a ($%CCC Z !%    T -UNPREVIOUSCOLUMNTHISPARENT ACTIVECOLUMNTHISFORMGRDHEXCOLUMNSTEXT1VALUE LOCKSCREEN NCURRENTCOLSETFOCUSGRDCHARREFRESHTTCC+>FindStrHCFindStrH/ T    S%CC FindStrH.CFindStrH/ $CC FindStrH.CFindStrH/Z TaT-U NCURRENTCOLTHISPARENT ACTIVECOLUMN CTEMPTEXT THISFORMSETDEC2HEXVALUEINTHISFORMGRDHEXCOLUMNSTEXT1REFRESHCMDFINDENABLEDT  HM$ C~ C @B n      T  %  o%%CC   Z k%  c BT $T FindStr.CCC Z>T   %T FindStrH.CCC Z>%  D S%CC FindStrH.CFindStrH/ $CC FindStrH.CFindStrH/Z TaT-   +Ta  T- M UNKEYCODE NSHIFTALTCTRLTHISPARENTCOLUMNSSETFOCUSTHISFORMCMDFINDCLICK NACTIVECOLUMN ACTIVECOLUMNGRDHEXTEXT1VALUE CFIELDNAMEENABLEDREFRESH LOCKSCREEN CMDCANCELGotFocus,InteractiveChangeKeyPresse1AAAAAA2cA4AA4AAAAAAaQAAAAAQ3AACAA2) txtfindstring!Arial, 0, 9, 5, 15, 12, 21, 3, 0 textboxtextboxtext1FontBold = .F. FontName = "Courier" FontSize = 9 BorderStyle = 0 Format = "!!" Height = 25 InputMask = "" Margin = 0 SpecialEffect = 1 Width = 28 hexisvalid = .T. Name = "text1" Class1 hexisvalid Pixels-Text1 object for Hex editing portion of grid. N#% U~ w%C>TTCTCsC BackColorUTHISPARENTDYNAMICBACKCOLOR BACKCOLORDISABLEDBACKCOLORREFRESHRESETTODEFAULTX  HM3 C09 Caf CAF OB dB    C    C     C D     C %    V%      < C C   7B2MC UNKEYCODE NSHIFTALTCTRLTHISFORMCMDPREVIOUSSECTORSETFOCUSCLICKTHIS CMDNEXTSECTOR CMDTOPOFFILECMDBOTTOMOFFILE THISFORMSET HEXEDITOR CMDFINDNEXTENABLEDCMDFINDPREVIOUSTa%-t%-pTaTaT aT C  T T7T C =C C C \6> T-UTHISFORM LOCKSCREENTHISPARENTREADONLY THISFORMSET LSECTORDIRTY CMDSAVEEDITSENABLEDCMDREVERTEDITS NASCIICODEHEX2DECVALUE CTEMPTEXTHEXEDITTEXTNCOLNUM ACTIVECOLUMNCOLUMN18REFRESHGotFocus,KeyPressInteractiveChange1qACrAA32AA!aAaAAAC2!AArqA1)text1"Courier, 0, 9, 9, 16, 13, 9, 3, 0 textboxtextbox refusefocusIHeight = 23 Width = 100 ForeColor = 255,255,255 Name = "refusefocus" Class1PixelsIIf user attempts to give column focus, focus is moved to adjacent column. %1UT H0 %Ta %CHEXEDITO H T-  l%U#%CHEXEDITOCHEXEDITN >Ta H  T-Q h 2 U NCOLNUM THISFORMSETTHISPARENT ACTIVECOLUMNTHISFORM LOCKSCREENCOLUMN17SETFOCUSREFRESHCOLUMN2HEXEDITGotFocus,12!AA!1AAAB3) refusefocus!Arial, 0, 9, 5, 15, 12, 21, 3, 0 BM>(x8BM>(x8BM>(ππBM>(??BM>(8xBM>(8x.\hexedit.scxhexedit.sctc:\docume~1\vfpbuild\locals~1\temp\hexedit.fxphexedit.vcxhexedit.vctdnarrow.bmpdnbottom.bmpleft.bmpright.bmpuparrow.bmpuptop.bmp )>>H=H==?=}EK}EhWhlicliioij|jkkkk&l